From 81a4a2ab63999ec2ffbe564d5a7773da9761ee6e Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 17 May 2001 11:24:28 +0000 Subject: [PATCH] (ange-ftp-write-region): Make sure to record the last coding system used before calling set-buffer-modified-p because that function changes last-coding-system. --- lisp/net/ange-ftp.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index e307a7dbfd4..9f3a2ed752e 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -1,6 +1,7 @@ ;;; ange-ftp.el --- transparent FTP support for GNU Emacs -;; Copyright (C) 1989,90,91,92,93,94,95,96,98, 00 Free Software Foundation, Inc. +;; Copyright (C) 1989,90,91,92,93,94,95,96,98, 2000, 2001 +;; Free Software Foundation, Inc. ;; Author: Andy Norman (ange@hplb.hpl.hp.com) ;; Maintainer: FSF @@ -3141,12 +3142,13 @@ system TYPE.") (filename (buffer-file-name)) (mod-p (buffer-modified-p))) (unwind-protect - (ange-ftp-real-write-region start end temp nil visit) + (progn + (ange-ftp-real-write-region start end temp nil visit) + (setq coding-system-used last-coding-system-used)) ;; cleanup forms + (setq coding-system-used last-coding-system-used) (setq buffer-file-name filename) (set-buffer-modified-p mod-p))) - ;; save value used by the real write-region - (setq coding-system-used last-coding-system-used) (if binary (ange-ftp-set-binary-mode host user)) -- 2.30.2